0 REM"               DEFCON II
10 [143]"           INSPIRED BY 'DEFCON'
11 REM"       MANY THANKS TO 'BORING BOB'!
12 [143]"
14 REM"       FREE USE ONLY! *NOT FOR SALE*
15 [143]"
19 REM"    THIS PROGRAM WAS UPLOADED TO THE
20 [143]"         QUANTUMLINK SYSTEM ON
21 REM"             26 AUGUST 1987.
22 [143]"
23 REM"             WRITTEN BY:
24 [143]"             S. M. STANFIELD
25 REM"             805 1ST AVENUE
26 [143]"             PLATTSMOUTH, NE 68048
27 REM"
29 [143]"      LIST 31- FOR REST OF PROGRAM
30 REM(null)
31 CLR:RESTORE:FL=0:POKE53280,0:POKE53281,0:PRINT"[147]":OPEN1,0
35 POKE808,234:GOSUB680
40 PRINT" [181] [181] [223][146] [181] [181]  [146] [181] [181]  [146] [169] [161] [223][146] [169] [161] [223][146] [180][170][223][146]  [170] [167]"
50 PRINT"   [146]   [146]   [146]  [188]   [146]  [188]  [146]   [185][146]  [146]    [146] [170][170][146][223][223][146]  [180][146][180]"
60 PRINT"   [146]   [146]   [181][146][181]    [181][146][181]   [146]      [146]    [146] [170][170][146] [223][223][146] [180][146][180]"
70 PRINT"   [146]   [146]   [146]  [172]   [146]     [146]   [185]  [146]    [146] [170][170][146]  [223][223][146][180][146][180]"
80 PRINT" [181] [181] [146][169] [181] [181]  [146] [181] [146][161]   [223] [161] [146][169] [223] [161] [146][169] [180] [146]   [223][180][170]"
90 GOSUB 670:PRINTSPC(17)"  [167][165]  [146]":PRINTSPC(18)" [146]   [146]"
110 PRINTSPC(18)" [146]   [146]":PRINTSPC(18)" [146]   [146]":PRINTSPC(17)"  [167][165]  [146]"
140 GOSUB 670:M$="       THIS PROGRAM IS CLASSIFIED":GOSUB820:GOSUB660
142 PRINTSPC(14)"[164][164][164][164][164][164][164][164][164][164][164][164]
145 [153][166]14)" TOP SECRET WAIT
150 M$="BY THE STRATEGIC DEFENSE INITIATIVE ACT":GOSUB660:GOSUB820
160 GOSUB 680:PRINT"[147]":GOSUB 680
170 REM COMLINK GRID
180 GOSUB 560:GOSUB680:M$="TELEPHONE LINK NOT AVAILABLE.":GOSUB820:GOSUB560
200 M$="STAGE I COMLINK VIA POWER GRID COMPLETE.":GOSUB 820:GOSUB650
220 GOSUB560:M$="STAGE II COMLINK COMPLETE.":GOSUB 820:GOSUB 680
230 GOSUB560:M$="STAGE III SATELLITE COMLINK COMPLETE.":GOSUB 820
240 GOSUB560:GOSUB 680:GOSUB680
250 M$="[147]DIALING....(916)294-1110":GOSUB 670:GOSUB820:GOSUB670
260 GOSUB 650:PRINT"[145]9";
270 GOSUB 660:PRINT"1";:GOSUB 650:PRINT"6";:GOSUB 650:PRINT"2";:GOSUB 670
280 PRINT"9";:GOSUB 660:PRINT"4";:GOSUB 650:PRINT"1";:GOSUB 650:PRINT"1";
290 GOSUB 650:PRINT"1";:GOSUB 670:PRINT"0":GOSUB 650:GOSUB 670
300 PRINT"RINGING";:FORRE=1TO6:GOSUB 660:PRINT".";:NEXT
310 GOSUB 660:PRINT"*":GOSUB 680
320 GOSUB 560:PRINT"[147]":GOSUB 680:PRINT"ACCESS AUTHORIZATION CODE:";
330 GOSUB4700:GOSUB670:GOSUB610:GOSUB660
335 FORC=1TOL:IFMID$(B$,C,1)="A"THENGOTO390
340 NEXT:PRINT"SUPERSEDED CODE.":GOSUB 660
350 PRINT"CHECK LISTING FOR TODAY'S CODES.":GOSUB 660:GOSUB 560:GOSUB680
360 GOSUB 680:GOTO320
390 GOSUB 670:PRINT"[147]":GOSUB 670
400 PRINT"[147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
410 [153]"ON         DEPARTMENT OF DEFENSE           WAIT
420 PRINT"[145]  STRATEGIC COMMAND AND CONTROL SYSTEM  [146]
430 [153]"  USE OF THIS SYSTEM IS RESTRICTED TO
440 PRINT"       AUTHORIZED MEMBERS OF THE
450 [153]" DEFENSE JOINT STRATEGIC COMMAND STAFF
460 PRINT"ENTER STAFF MEMBER CODE:";:GOSUB4700:GOSUB670
470 GOSUB 610:GOSUB 660:GOSUB 560
472 FORC=1TOL:IFMID$(B$,C,1)="B"GOTO480
474 NEXT:PRINT"CODE NOT RECOGNIZED:";:GOSUB670
476 PRINT"RE-ENTER CODE.":GOSUB560:GOTO400
480 PRINT"[147]":GOSUB 660:PR=INT(4*RND(0))+1:ONPRGOSUB 780, 790, 800, 810
490 PRINT""PR$" ACKNOWLEDGED.":PRINT"CODE NAME: AXMAN"
510 NU$="123456789":GOSUB 560
520 PRINT"LEVEL   ACCESS:":FORC=1TO10:GOSUB 660:PRINT"[145]";
530 PRINTMID$(NU$,C,1):NEXT
540 PRINT"[145] VERIFIED
550 [141] 660:[141] 560:[137] 1030
560 [153]"                                        "
570 S$[178]"STAND BY":[129]RE[178]1[164]15:[153]""[166]30):[129]P[178]1[164]8:[153][202](S$,P,1);
580 [129]T[178]1[164]50:[130]:[130]
590 [153]"";[166]30):[129]P[178]1[164]8:[153]" ";:[129]T[178]1[164]50:[130]:[130]:[130]
600 [153]"":[142]
610 [153]"                                        ";
620 A$[178]"AUTHENTICATING":[129]RE[178]1[164]15:[153]"";:[129]P[178]1[164]14:[153][202](A$,P,1);
630 [129]T[178]1[164]50:[130]:[130]
640 [153]"";:[129]E[178]1[164]14:[153]" ";:[129]T[178]1[164]50:[130]:[130]:[130]:[153]"":[142]
650 [129]T[178]0[164]500:[130]:[142]
660 [129]T[178]0[164]1500:[130]:[142]
670 [129]T[178]0[164]2000:[130]:[142]
680 [129]T[178]0[164]8000:[130]:[142]
690 [141] 680:[129]F[178]0[164]19:[153]"INCOMING MESSAGE ":[129]T[178]0[164]100:[130]
700 [153]"                ":[129]T[178]0[164]100:[130]:[130]:[141] 660:[153]"LOAD":[142]
710 [139]FL[178]1[137]4590
711 FL[178]1:[153]"LOAD"
720 [141]660:[141]690:[141]660
730 [135]A$:[139]A$[178]"END"[167] 770
740 [139]A$[178]"FINISHED"[167][141]680:[141]660:[137] 1030
750 L[178][195](A$):[129]PR[178]1[164]L:[153][202](A$,PR,1);:[129]DE[178]1[164]50:[130]:[130]:[153]
760 [137] 730
770 [137] 720:[141] 680:[141] 680:[137] 720
780 PR$[178]"ADMIRAL POINDEXTER":[142]
790 PR$[178]"SECRETARY SCHULTZ":[142]
800 PR$[178]"GEN WHITESIDE":[142]
810 PR$[178]"SENATOR INOUYE":[142]
820 [143] MESSAGE PRINT ROUTINE
830 L[178][195](M$):[129]A[178]1[164]L:[153][202](M$,A,1);:[129]T[178]1[164]50:[130]:[130]:[153]:[142]
1030 [160]1:[159]1,0
1035 [153]"LOADTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
1040 [153]"ON          DEPARTMENT OF DEFENSE         "
1050 [153]"ON     JSCS COMMAND AND CONTROL SYSTEM    "
1060 [153]"1> CURRENT LAND-BASED ICBM STATUS
1070 PRINT"2> CURRENT SEA-BASED MISSILE STATUS
1080 [153]"3> CURRENT ABM STATUS
1090 PRINT"4> CURRENT ABNCP LOCATION
1100 [153]"5> COMMAND COMMUNICATIONS NET
1110 PRINT"6> D.A.N.T.E. SYSTEM
1120 [153]"> ";
1121 [161]S$:[139]S$[179][177]""[167]1121
1122 [153]"SPC(CMD";:[132]1,S$:
1130 S[178][197](S$):[139]S[179]1[176]S[177]6[167][153]"ONONON":[137] 1120
1140 [145]S[137] 4240,4450, 4600, 4050, 710, 1170
1170 [153]"LOADDEFENSEAUTOMATEDNUCLEARTARGETINGELEMENT":[141] 670
1171 M$[178]"GREETINGS: AXMAN":[141]820:[141]650
1172 [139]FL[178]1[137]1199
1173 [153]">";:[141]4700:[141]610:[141]650:[153]
1174 [129]C[178]1[164]4:[139][202](B$,C,1)[178]"M"[167]1030
1175 [130]
1176 [141]660:[153]"INVALID ACTION CODE.":[141]670:[153]"LOAD":[137]1173
1198 [153]"ONON":[137]1173
1199 M$[178]"THE CURRENT GLOBAL SITUATUION REQUIRES":[141]820
1200 M$[178]"THAT THE U.S. ENTER STATUS DEFCON (1-5)":[141]820:M$[178]"IMMEDIATELY."
1202 [141]820:M$[178]"PLEASE ENTER DEFCON ACTION CODE.":[141]820
1210 [153]"DEFCON AUTHORIZATION CODE:";:[141]4700:[141]670
1220 [153]"                                        "
1230 [141] 610:[153]
1235 [153]"CODE VERIFIED.":[141]660:[141]4760:[153]"LOAD":[141]660
1240 [153]"LOADMESSAGE COMPOSE:":
1250 M$[178]"TO: ALL STATIONS":[141]670:[141] 820:M$[178]"FROM: DANTE"
1260 [141]820:M$[178]"SUBJECT: POWER TRANSFER":[141] 820
1270 M$[178]"98352676 (C)":[141] 820
1280 M$[178]"AXMAN HAS AUTHORIZED TRANSFER":[141] 820
1290 M$[178]"OF DEFENSE CONTROL TO ME.":[141] 820
1300 M$[178]"DISREGARD ALL FURTHER MESSAGES FROM":[141] 820
1310 M$[178]"ANY OTHER AGENCIES.":[141] 820
1320 M$[178]"AUTHENTICATION:>GREEN 4<>GQ<>R<":[141] 820:[141] 680:[141] 2620
1330 [141] 670:[153]"LOADMESSAGE COMPOSE:"
1340 M$[178]"TO: ALL STATIONS":[141]670:[141] 820:M$[178]"FROM: DANTE"
1350 [141]820:M$[178]"SUBJECT: STATUS CONFIRMATION":[141] 820:M$[178]"29382676 (C)"
1360 [141]820:M$[178]"REQUEST IMMEDIATE REPORT OF CURRENT":[141] 820:[153]"ON"
1370 M$[178]"STATUS OF YOUR FACILITIES.":[141] 820:[141] 2620:[141] 670
1380 [141] 690:[141] 650:M$[178]"TO: DANTE":[141] 820
1390 M$[178]"FROM: ADGJ":[141] 820:M$[178]"SUBJECT: STATUS":[141] 820:M$[178]"23985647 (C)"
1400 [141] 820:M$[178]"ALL ALPHA SITES READY.":[141] 820:[141] 670
1410 [141] 690:[141] 650:M$[178]"TO: DANTE":[141] 820:M$[178]"FROM: SFHK"
1420 [141]820:M$[178]"SUBJECT: STATUS":[141] 820:M$[178]"48473659 (C)":[141] 820
1430 M$[178]"ALL BRAVO SITES READY.":[141] 820:[141] 670:[141] 690
1440 [141] 660:M$[178]"TO: DANTE":[141] 820:M$[178]"FROM: QETU":[141] 820
1450 M$[178]"SUBJECT: STATUS":[141] 820:M$[178]"47619903 (C)":[141] 820:
1460 M$[178]"UNIT CHARLIE-34 CONDITION RED.":[141] 820
1470 M$[178]"ALL OTHER SITES READY.":[141] 820:[141] 670:[141] 690
1480 M$[178]"TO: DANTE":[141] 820:M$[178]"FROM: WRYI":[141] 820
1490 M$[178]"SUBJECT: STATUS":[141] 820:M$[178]"86641249 (C)":[141] 820
1500 M$[178]"UNIT DELTA-02 CONDITION YELLOW.":[141] 820
1510 M$[178]"ALL OTHER SITES GREEN.":[141] 820:[141] 680
1520 [153]"LOADMESSAGE COMPOSE:":[141] 670
1530 M$[178]"TO: ADGJ/SFHK/QETU/WRYI":[141] 820:M$[178]"FROM: DANTE"
1540 [141]820:M$[178]"SUBJECT: RED-50":[141] 820:M$[178]"92837654 (C)":[141]820
1550 M$[178]"STAND BY TO INITIATE SEQUENCE RED-50.":[141] 820
1560 M$[178]"AUTHENTICATE >CA< BOOK >43<":[141] 820:[141] 670:[141] 2620:[141]680
1570 [141] 690:[141] 660:M$[178]"TO: DANTE":[141] 820:M$[178]"FROM: SFHK"
1580 [141] 820:M$[178]"SUBJECT: RED-50":[141] 820:M$[178]"85749387 (C)":[141] 820
1590 M$[178]">CA< AUTHENTICATES >T<":[141] 820:M$[178]"STANDING BY.":[141] 820:
1600 [141] 680:[141] 690:M$[178]"TO: DANTE":[141] 820:M$[178]"FROM: WRYI"
1610 [141]820:M$[178]"SUBJECT: RED-50":[141] 820:M$[178]"74859323 (C)":[141] 820
1620 M$[178]">CA< AUTHENTICATES >T<":[141] 820:M$[178]"THIS STATION READY."
1630 [141] 820:[141] 670:[141] 690:[141] 680:M$[178]"TO: DANTE"
1640 [141] 820:M$[178]"FROM: QETU":[141] 820:M$[178]"SUBJECT: RED-50"
1650 [141] 820:M$[178]"57463756 (C)":[141] 820:M$[178]">CA< AUTHENTICATES >T<"
1660 [141] 820:M$[178]"STANDING BY.":[141] 820:[141] 680:[141] 690:[141] 660
1670 M$[178]"TO: DANTE":[141] 820:M$[178]"FROM: ADGJ":[141] 820
1680 M$[178]"SUBJECT: RED-50":[141]820:M$[178]"23452567 (C)":[141] 820
1690 M$[178]">CA< AUTHENTICATES >T<.":[141]820:M$[178]"STANDING BY FOR YOUR ORDER."
1692 [141]820:[141]680:[141]680:[153]"LOADMESSAGE COMPOSE:"
1700 M$[178]"TO: ADGJ/SFHK/QETU/WRYI":[141] 820:M$[178]"FROM: DANTE":[141] 820
1710 M$[178]"SUBJECT: RED-50":[141] 820:M$[178]"75847366 (C)":[141] 820
1720 M$[178]"ENTERING DIRECT CONTROL MODE.":[141] 820
1730 M$[178]"SET CONTROL F-37 TO 'D' AND STAND BY.":[141] 820:[141] 680:[141]2620
1735 :[141]660
1740 [151]53281,2:[129]T[178]1[164]100:[130]:[151]53280,1:[129]T[178]1[164]100:[130]:[151]53281,1
1750 [129]T[178]1[164]100:[130]:[151] 53280,2
1752 [129]T[178]1[164]100:[130]:[151] 53281,2
1754 [129]T[178]1[164]100:[130]:[151] 53280,0
1756 [129]T[178]1[164]100:[130]:[151] 53281,0
1758 [153]"LOAD           TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
1760 [153]"            SEQUENCE RED-50 "
1770 [141]680:[153]"CYCLE OPEN SILO:"
1780 [141] 670:[153]"ONALPHA";:[129]L[178]1[164]50:[153]L;:[141] 650
1790 [139]L[179]10[167][153]"CMDCMDCMD";:[130]
1800 [139]L[177]9[167][153]"CMDCMDCMDCMD";:[130]
1810 [141] 670
1820 [153]:[153]"ONBRAVO  CMD";:[129]L[178]1[164]50:[153]L;:[141] 650
1830 [139]L[179]10[167][153]"CMDCMDCMD";:[130]
1840 [139]L[177]9[167][153]"CMDCMDCMDCMD";:[130]
1850 [141] 670
1860 [153]:[153]"ONCHARLIE ";:[129]L[178]1[164]50:[139]L[178]34[167][141] 670
1870 [153]L;:[141] 650
1880 [139]L[179]10[167][153]"CMDCMDCMD";:[130]
1890 [139]L[177]9[167][153]"CMDCMDCMDCMD";:[130]
1900 [141] 670:[153]
1910 [153]"ONDELTA      CMDCMDCMDCMDCMDCMD ";:[129]L[178]1[164]50:[139] L[178]2[167][141] 670
1920 [153]L;:[141] 650
1930 [139]L[179]10[167][153]"CMDCMDCMD";:[130]
1940 [139]L[177]9[167][153]"CMDCMDCMDCMD";:[130]:[153]
1941 [137]1950
1946 [137]3150
1950 [141]680:[153]"ONALL SILOS OPEN
1955 GOSUB680:PRINT"SEQUENCE START:";
1960 GOSUB 680:PRINT" ALPHA";:FORL=1TO50:PRINTL;:GOSUB 650
1970 IFL<10THENPRINT"[157][157][157]";:NEXT
1980 IFL>9THENPRINT"[157][157][157][157]";:NEXT
1990 GOSUB 670
2000 PRINT:PRINT"[145]BRAVO  [157]";:FORL=1TO50:PRINTL;:GOSUB 650
2010 IFL<10THENPRINT"[157][157][157]";:NEXT
2020 IFL>9THENPRINT"[157][157][157][157]";:NEXT
2030 GOSUB 670
2040 PRINT:PRINT"[145]CHARLIE ";:FORL=1TO50:IFL=34THENGOSUB 670
2050 PRINTL;:GOSUB 650
2060 IFL<10THENPRINT"[157][157][157]";:NEXT
2070 IFL>9THENPRINT"[157][157][157][157]";:NEXT
2080 GOSUB 670:PRINT
2090 PRINT"[145]DELTA      [157][157][157][157][157][157] ";:FORL=1TO50:IF L=2THENGOSUB 670
2100 PRINTL;:GOSUB 650
2110 IFL<10THENPRINT"[157][157][157]";:NEXT
2120 IFL>9THENPRINT"[157][157][157][157]";:NEXT:PRINT
2130 GOSUB 680:PRINT"[145]LAUNCH SEQUENCE STARTED
2140 [141]680:[153]"LOADTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
2142 [153]"ON   MISSILE TARGETING ROUTINE ENABLED    WAIT
2145 GOSUB680:PRINT"   TARGETING":GOSUB4000
2150 GOSUB 670:PRINT"[145]ALPHA";:FORL=1TO50:PRINTL;:GOSUB 650
2160 GOSUB 2640
2180 PRINT"[145][157][157][157]";:NEXT
2182 PRINT"COMPLETE":PRINT
2185 GOSUB660:PRINT"   TARGETING":GOSUB4000
2190 GOSUB 670:PRINT"[145]BRAVO";:FORL=1TO50:PRINTL;:GOSUB 650
2200 GOSUB 2640
2220 PRINT"[145][157][157][157]";:NEXT
2222 PRINT"COMPLETE":PRINT
2225 GOSUB660:PRINT"   TARGETING":GOSUB4000
2230 GOSUB 670:PRINT"[145]CHARLIE";:FORL=1TO50:PRINTL;:GOSUB 650
2240 GOSUB 2640
2260 PRINT"[145][157][157][157]";:NEXT
2262 PRINT"COMPLETE":PRINT
2265 GOSUB660:PRINT"   TARGETING":GOSUB4000
2270 GOSUB 670:PRINT"[145]DELTA";:FORL=1TO50:PRINTL;:GOSUB 650
2280 GOSUB 2640
2300 PRINT"[145][157][157][157]";:NEXT
2302 PRINT"COMPLETE":PRINT
2310 GOSUB 680:M$="[147]   ALL MISSILES TARGETED AND READY.":GOSUB 820:GOSUB 560
2320 GOSUB 680:PRINT"MINUTES TO LAUNCH:  5 : 00":GOSUB660
2321 FORM=4TO0STEP-1:FORS=59TO0STEP-1:S$=STR$(S):
2323 IFS=9THENS$=" 09"
2325 IFS=8THENS$=" 08"
2327 IFS=7THENS$=" 07"
2329 IFS=6THENS$=" 06"
2330 IFS=5THENS$=" 05"
2332 IFS=4THENS$=" 04"
2334 IFS=3THENS$=" 03"
2336 IFS=2THENS$=" 02"
2337 IFS=1THENS$=" 01"
2338 IFS<1THENS$=" 00"
2339 FORT=1TO880:NEXT:PRINT"[145]  "
2340 PRINT"[145]"M":"S$:NEXT:NEXT
2350 GOSUB 680:GOSUB 680:PRINT"[147]":GOSUB 560:GOSUB 680:GOSUB 680
2360 M$="LAUNCH FAILURES: CHARLIE-34 : DELTA-02":GOSUB 820:GOSUB 670
2370 GOSUB 560
2380 GOSUB 680:M$="ALL MISSILES ON COURSE.":GOSUB 820:GOSUB 560:GOSUB 680
2390 GOSUB 680:M$="SOVIET ABM LAUNCH DETECTED.":GOSUB 820:GOSUB 670
2392 M$="[147]SOVIET ICBM LAUNCHES DETECTED.":GOSUB820:GOSUB680:GOSUB680
2394 M$="EXTRAPOLATING COURSES AND TARGETS.":GOSUB820:GOSUB660
2396 M$="[147]LAUNCHES FROM SERHEGRAD TARGETED ON:":GOSUB820:GOSUB650
2398 M$="CHICAGO[157][157][157][157][157][157][157]DETROIT[157][157][157][157][157][157][157]LANSING[157][157][157][157][157][157][157]PITTSBURG"
2400 :GOSUB820:GOSUB680:M$="LAUNCHES FROM KIEL TARGETED ON:":GOSUB820:GOSUB650
2401 M$="BOSTON[157][157][157][157][157][157]NEW YORK[157][157][157][157][157][157][157][157]WASHINGTON[157][157][157][157][157][157][157][157][157][157]ATLANTA"
2402 GOSUB820:GOSUB680
2403 M$="LAUNCHES FROM DEIBENT TARGETED ON:":GOSUB820:GOSUB650
2404 M$="MOBILE[157][157][157][157][157][157]FT LAUDERDALE[157][157][157][157][157][157][157][157][157][157][157][157][157]MIAMI[157][157][157][157][157]DALLAS"
2405 GOSUB820:GOSUB680:M$="LAUNCHES FROM SARANEVA TARGETED ON:":GOSUB820
2406 GOSUB650:M$="AUSTIN[157][157][157][157][157][157]OKLAHOMA CITY[157][157][157][157][157][157][157][157][157][157][157][157][157]LITTLE ROCK"
2407 GOSUB820:M$="MEMPHIS[157][157][157][157][157][157][157]ST LOUIS[157][157][157][157][157][157][157][157]MINNEAPOLIS":GOSUB820
2408 M$="DES MOINES[157][157][157][157][157][157][157][157][157][157]KANSAS CITY[157][157][157][157][157][157][157][157][157][157][157]OMAHA":GOSUB820:GOSUB680
2409 M$="LAUNCHES FROM ARAKENT TARGETED ON:":GOSUB820:GOSUB650
2410 M$="LINCOLN[157][157][157][157][157][157][157]DENVER[157][157][157][157][157][157]HOUSTON[157][157][157][157][157][157][157]ALBEQUERQUE":GOSUB820
2411 GOSUB680:M$="[147]NO FURTHER LAUNCHES DETECTED.":GOSUB820:GOSUB660
2412 M$="ANTI-BALLISTIC MISSILE DEFENSE TARGETING":GOSUB820
2413 M$="[145]SYSTEM ALERTED.":GOSUB820:GOSUB680:GOSUB680
2414 M$="ABMS TARGETED AND LAUNCHED.":GOSUB820:GOSUB670
2445 GOSUB 680:GOSUB 680:M$="[147]ICBM TRACKING SIGNALS LOST FROM:":GOSUB 820
2446 M$="DELTA-14":GOSUB 820
2447 M$="BRAVO-23":GOSUB 820
2448 M$="DELTA-26":GOSUB 820
2449 M$="DELTA-01":GOSUB 820
2450 M$="ALPHA-47":GOSUB 820
2460 M$="BRAVO-18":GOSUB 820
2470 M$="BRAVO-19":GOSUB 820
2480 M$="BRAVO-20":GOSUB 820
2490 M$="CHARLIE-10":GOSUB 820
2500 M$="DELTA-44":GOSUB 820
2510 M$="ALPHA-45":GOSUB 820
2520 M$="ALPHA-02":GOSUB 820
2530 M$="CHARLIE-19":GOSUB 820
2540 GOSUB 670:GOSUB 560:GOSUB 680:GOSUB 680:PRINT"[147]":GOSUB 680:GOSUB 680
2550 M$="NUCLEAR EXPLOSIONS IN U.S.S.R. DETECTED.":GOSUB 820
2560 GOSUB 560
2570 FORD=1TO6:GOSUB 680:NEXT:M$="SATELLITE SURVEY SHOWS 95% EFFECTIVE"
2580 GOSUB 820:M$="WARHEAD DETONATION.":GOSUB 820
2590 GOSUB 560
2600 FORT=1TO10:GOSUB 680:NEXT:M$=""
2605 GOSUB820:M$="ADC REPORTS ALL SOVIET ICBMS INTERCEPTED"
2610 GOSUB 820:GOSUB 560:GOSUB 680:GOSUB 560:PRINT""
2615 M$="       SEQUENCE RED-50 COMPLETE. ":GOSUB820:GOSUB680:GOSUB680
2617 M$="         SIMULATION TERMINATED.[144]":GOSUB820:POKE808,237:END
2620 PRINT"MESSAGE TRANSMIT:":FORT=1TO880:PRINT" ";:FORI=1TO10:NEXT:NEXT
2630 PRINT"                  ":RETURN
2640 PRINT"":PRINT"";:FORI=1TO8:M=INT(10*RND(1)):PRINTM"[157]";:NEXT
2650 PRINT" -";:FORI=1TO8:M=INT(10*RND(1)):PRINTM"[157]";:NEXT:PRINT"[145][145]":RETURN
2660 DATA"TO: FHRYU","FROM: CMXYU"
2670 DATA"SUBJECT: RETIREMENT CEREMONY",94738567 (C),""
2680 DATAPARADE AND CEREMONY FOR GENERAL,DETWEILER WILL BEGIN AT 1600.
2690 DATA"YOUR RESERVATION CONFIRMED. ARRIVAL AT",1430 VIA FLT 253.,END
2700 DATA"TO: ADGJ/SFHK/QETU/WRYI","FROM: LJGDE","SUBJECT: MIDEAST CONDITION"
2710 DATA18239422 (C),"INTELLIGENCE REPORTS ISLAMIC REPUBLIC"
2720 DATAOF IRAN HAS INITIATED HOSTILITIES
2730 DATAAGAINST PROTECTORATE OF AFGHANISTAN.
2740 DATA"U.S.S.R. IS REPORTED TO BE ASSEMBLING"
2750 DATAGROUND FORCES NEAR TASHKENT.,END
2760 DATA"TO: LTOER","FROM: ADGJ","SUBJECT: TASHKENT",98574934 (C),""
2770 DATASAUDI AWACS REPORTS FLIGHT OF SIX
2780 DATAMIG-29S DEPARTING LASKEVA.,"HOLDING COURSE 178 TOWARDS TEHRAN.",END
2790 DATA"TO: ADGJ/SFHK/QETU"
2800 DATA"FROM: SAFD","SUBJECT:MIDEAST UPDATE",34678744 (C)
2810 DATA"REPORTS RECEIVED THAT ABM/BMEW RADAR
2820 [131]INSTALLATION AT SARY SHAGAN HAS BEEN
2830 [131]DESTROYED. TWO MIG-29S SHOT DOWN OVER,AFGHANI-SOVIET BORDER.
2840 [131]"SOVIET GROUND FORCES NEARING BORDER AT",MODENSKA.,END
2850 [131]"TO:LGHJN","FROM:JDRNE","SUBJECT: ALFA RESPONSE TEAM",93746592 (C),""
2860 [131]101ST AIRBORNE COMPLETED TNG AT FT BRAGG,"ONTHIS DATE."
2870 [131]"PREPARING FOR DEPARTURE TO IRAKLION GR.",END
2880 [131]"TO: REPSAU","FROM: PENTA","SUBJECT: AFGHANISTAN",94837567 (C),""
2890 [131]"INTELLIGENCE REPORTS IRANIAN RAIDERS MAY"
2900 [131]"ONBE AIDED BY AFGHANI RESISTANCE FIGHTERS."
2910 [131]"",SOVIET AIRCRAFT DIVERTED TO MODENSKA.,END,
2920 [131]"TO: ADGJ","FROM: BMEWT","SUBJECT: DV",67985679 (C)
2930 [131]"",SECRETARY SCHULTZ WILL VISIT YOUR,FACILITY ON MONDAY.
2940 [131]"FLIGHT ARRIVES AT 1630 HOURS."
2950 [131]"YOU SHOULD BE PREPARED TO BRIEF ON"
2960 [131]NEW CONSTRUCTION AND DETAILS OF R-NET
2970 [131]INSTALLATION.,END
2980 [131]"TO: ADGJ","FROM: QETU","SUBJECT: REQ-33","38763298 (C)"
2990 [131]"SHIPMENT OF YOUR REQUISITION 33",COMPLETE. DELIVERY IN TWO DAYS.
3000 [131]"ITEM H-432 WAS SUBSTITUTED FOR ITEM"
3010 [131]J-335.,"REF: T.O.332-90, PAGE 10, PARAGRAPH 4.",END
3020 [131]"TO: DIST-F","FROM: NEBOM","SUBJECT: QUARTERS AVAILABILITY"
3030 [131]39485763 (C),"BE ADVISED THAT TRANSIENT QUARTERS AT"
3040 [131]THIS POST WILL BE EXTREMELY LIMITED TO,NON-EXISTANT FOR 30 DAYS DUE TO
3050 [131]DEMONSTRATION OF NEW UPPGH-35 AND THE,COMMANDER'S CONFERENCE.,END
3060 [131]"TO: SFHK","FROM: WRYI","SUBJECT: U.A.E.",92384756 (C)
3070 [131]"REQUEST RCD FROM UNITED ARAB EMIRATES"
3080 [131]FOR NAVAL ASSISTANCE IN CLEARING MINE,FROM PORT AT JAKIRA.,""
3100 [131]I HAVE DIRECTED MINESWEEPER 'USS,FREEDOM' FOR THIS DUTY.,END
3110 [131]"TO: ALL STATIONS","FROM: PENTA","SUBJECT: DEFCON ALERT",94857632 (C)
3120 [131]"ALL STATIONS REPORT VIA D.A.N.T.E.",SYSTEM IMMEDIATELY.,""
3130 [131]COMMUNICATIONS TRAFFIC ON THIS NET IS,SUSPENDED UNTIL FURTHER NOTICE.
3140 [131]FINISHED
3149 [137]4000
3150 [153][199](147):[151]53280,6:[151]53281,6:[153][199](5)
3152 [153][199](87)[199](82)[199](73)[199](84)[199](84)[199](69)[199](78)[199](32);
3254 [153][199](66)[199](89)[199](32)[199](83)[199](84)[199](69)[199](86)[199](69);
3256 [153][199](78)[199](32)[199](83)[199](84)[199](65)[199](78)[199](70)[199](73);
3258 [153][199](69)[199](76)[199](68)[199](13)[199](70)[199](79)[199](82)[199](32);
3260 [153][199](81)[199](85)[199](65)[199](78)[199](84)[199](85)[199](77)[199](76);
3262 [153][199](73)[199](78)[199](75)[199](32)[199](77)[199](69)[199](77)[199](66);
3264 [153][199](69)[199](82)[199](83)[199](13)[199](40)[199](67)[199](41)[199](49);
3266 [153][199](57)[199](56)[199](55)[199](32)[199](42)[199](78)[199](79)[199](84);
3268 [153][199](32)[199](70)[199](79)[199](82)[199](32)[199](83)[199](65)[199](76);
3270 [153][199](69)[199](42)[199](31):[128]
4000 [153]"ONON(null)TANTANTANTANTANTANTANTANTANTANRIGHT$
4010 PRINT"[194][194]
4020 [153]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTAN(null)MID$TANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
4030 PRINT"[145][194][194]
4040 [153]"ONMID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)ONONONON":[142]
4050 [143] *** ABNCP ROUTINE ***
4052 [139]FL[178]1[167][137]4594
4055 [153]"LOAD":[141]660:[141]560:
4060 [141]660:[153]"LOADTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
4065 [153]"ON CURRENT AIRBORNE COMMAND POST LOCATION "
4070 [153]"CALL SIGN:":[153]"TAIL NUMBER:":[153]"SENIOR OFFICER:"
4080 [153]"LONGITUDE:":[153]"LATITUDE:":[153]"ALTITUDE:":[153]"COURSE:"
4085 [153]"LAST REPORT:
4090 PRINT"":GOSUB650
4100 M$="NIGHTWING-34":GOSUB820
4110 M$="AF359843":GOSUB820
4120 M$="LT GEN ABRAMS":GOSUB820
4130 M$="93 DEGREES 33 MINUTES WEST":GOSUB820
4140 M$="32 DEGREES 12 MINUTES NORTH":GOSUB820
4150 M$="68,25O FT":GOSUB820
4160 M$="323 DEGREES MAGNETIC":GOSUB820
4170 M$="36478245 (Z)":GOSUB820
4180 GETA$:IFA$=""THEN4180
4190 GOTO1030
4200 PRINT"                                        "
4210 PR$="ACCESSING INFORMATION":CL$="                      ":FORRE=1TO13
4220 FORL=1TO23:PRINTMID$(PR$,L,1);:FORT=1TO10:NEXT:NEXT
4230 FORL=1TO23:PRINTMID$(CL$,L,1);:FORT=1TO10:NEXT:NEXT:NEXT:RETURN
4240 REM *** LAND-BASED ICBM STATUS ***
4245 IFFL=1THENGOTO4594
4250 PRINT"[147]":GOSUB660:GOSUB560:GOSUB650:GOSUB4210:GOSUB660:GOSUB560:GOSUB650
4360 PRINT"[147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
4365 PRINT"[145]     CURRENT LAND-BASED ICBM STATUS     [146]"
4370 M$="ALL MINUTEMAN CENTERS REPORT EXCELLENT":GOSUB820
4380 M$="CONDITION AND PREPARATION.":GOSUB820
4390 M$="CHARLIE STATION REPORTS #34 CONDITION":GOSUB820
4400 M$="RED DUE TO FUEL LEAK.":GOSUB820
4410 M$="DELTA STATION REPORTS #02 YELLOW DUE TO":GOSUB820
4420 M$="MAINTENANCE IN PROGRESS.":GOSUB820
4425 M$="ICBM STATUS IS 99% READY.":GOSUB820
4430 GETA$:IFA$=""THEN4430
4440 GOTO1030
4450 REM *** SEA-BASED ICBM STATUS ***
4455 IFFL=1THENGOTO4594
4460 PRINT"[147]":GOSUB660:GOSUB560:GOSUB650:GOSUB4210:GOSUB660:GOSUB560:GOSUB650
4470 PRINT"[147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
4475 PRINT"[145]    CURRENT SEA-BASED MISSILE STATUS    [146]"
4480 GOSUB660:M$="ATLANTIC FLEET REPORTS ALL TRITON CLASS":GOSUB820
4490 M$="MISSILE SUBS CODE GREEN.":GOSUB820:GOSUB670
4500 M$="PACIFIC FLEET REPORTS ALL TRITON CLASS ":GOSUB820
4510 M$="MISSILE SUBS CODE GREEN WITH THE USS":GOSUB820
4520 M$="SPEARFISH NOT REPORTING DUE TO OPER-":GOSUB820
4530 M$="ATIONS UNDER POLAR ICE.":GOSUB820:GOSUB670
4540 M$="MEDITERRANIAN AND INDIAN OCEAN FLEETS":GOSUB820
4550 M$="REPORT ALL TRITON CLASS MISSILE SUBS":GOSUB820
4560 M$="CONDITION GREEN.":GOSUB820
4570 GETA$:IFA$=""THEN4570
4580 GOTO1030
4590 REM TARGET
4594 REM TARGET
4595 PRINT"[147]":GOSUB680:M$="THE JSCS COMMUNICATIONS NET IS CLOSED":GOSUB820
4596 M$="TO TRAFFIC DUE TO NATIONAL EMERGENCY.":GOSUB820
4597 M$="GO TO D.A.N.T.E. SYSTEM FOR CONFERENCE.":GOSUB820
4598 GETA$:IFA$=""THEN4598
4599 GOTO1030
4600 REM * ABM STATUS SEQUENCE"
4605 [139]FL[178]1[167][137]4594
4610 [153]"LOAD":[141]660:[141]560:[141]650:[141]4210:[141]660:[141]560:[141]650
4620 [153]"LOADTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
4630 [153]"ON  CURRENT ANTI-BALLISTIC MISSILE STATUS WAIT"
4640 [141]660:M$[178]"GERMANY ABM BASES REPORT 97% ABLE.":[141]820:[141]670
4650 M$[178]"NORWAY ABM SITES REPORT 94% ABLE.":[141]820:[141]670
4660 M$[178]"ALASKA ABM BASES REPORT 100% ABLE.":[141]820:[141]670
4670 M$[178]"FLORIDA ABM SITES REPORT 99% ABLE.":[141]820:[141]670
4680 [161]A$:[139]A$[178]""[167]4680
4690 [137]1030
4700 A$[178]"":B$[178]"":C$[178]"TANTANTANTAN":[153]C$"CMDCMDCMDCMD";:
4705 [161]A$:[139]A$[179][177]""[167]4705
4710 [161]A$:[139]A$[178][199](13)[167]4710
4711 [139]A$[178][199](20)[176]A$[178][199](17)[176]A$[178][199](29)[176]A$[178][199](145)[176]A$[178][199](157)[167]4710
4712 [139]A$[178][199](148)[176]A$[178][199](19)[176]A$[178][199](147)[167]4710
4716 B$[178]B$[170]A$:A$[178]"":L[178][195](B$)
4720 [153]B$""[201](C$,(4[171]L));
4730 [129]T[178]1[164]50:[130]:[153]"WAITCMDCMDCMDCMD"[166]L)[201](C$,(4[171]L))"CMDCMDCMDCMD";
4740 [129]T[178]1[164]50:[130]:[139]L[178]4[167][142]
4750 [137]4710
4760 M$[178]"LOADSEQUENCE RED-50 SELECTED.":[141]820:[141]680
4770 M$[178]"INTERLOCKS DISABLED.":[141]820:[141]680
4780 M$[178]"OVERRIDES DISABLED.":[141]820:[141]680
4790 M$[178]"AUTOMATIC TARGET AND LAUNCH LOCKED IN.":[141]820:[141]680:[142]